Option Explicit
Sub A_Sample001()
    Dim myRng As Range
    If TypeName(Selection) = "Range" Then
        Set myRng = Selection
        MsgBox myRng.Address
    Else
        MsgBox "Sxs"
    End If
    Set myRng = Nothing		'
End Sub
